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3 QUIRE file for BASIC internal parameters passed between modules 
Le:BASPAR.SDL Edit: SBL2001 
SHARK KHKSKAAAATAAAAAAAAEAARAAAAEAATAAAEAEAAARAERAARRAAEEREHERAEEARAAEAREAEREREEEEEE 
* ® 
* COPYRIGHT (c) 1978, 1980, 1982, 1984 6 ® 
* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. « 
. ALL RIGHTS RESERVED. * 
® 

* THIS SOFTWARE IS URN SHED UNDER A LICENSE AND MAY BE USED AND copsce * 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
* eS Tiee OF THE seoye COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
* COPIES THEREOF MAY NOT BE PROV IDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 

ts OTHER PERSON. NO tht LE TO AND OWNERSHIP OF THE SOFTWARE IS WHEREBY * 
* TRANSFERRED. * 
® ® 

t THE broenat ice IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

” AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

ts CORPORATION. : 

{* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

+ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ; 

{Sesevesvavesssvevsenensnncusonencusencusenensenensanencneencnscncensecentess 

{ 

{ Author: T. Hastings 

{ Change History: 

{0-8 - inter changed FORSL_SIG_LUN -_ Re enh SIG_RNS. TNH 5-Jan-78 

{ 1-1 = modif or use by BASIC. P 05-A ee -78 

{ 1-004 = Added a copyright notice. wes 29-N0V-78 

{ 1-005 = Gut this module to remove ecaribaae DGP 09-Jan-79 

{ 1-006 - Remove the crosserel unused symbols, as indicated by 

{ the BLISS cross-re Srence MAX FORE f and BASIOELEM: Yes 10-JAN-1979 

{ 1-007 = Add BASSK_LUN for foreign buffers. DGP 26-Mar-79 

} as = Remove the PRINT Soe for the new BLISS compiler. JBS 08-OCT-1979 
1-009 = Add BASSK_CRLF. DGP 06-Nov-79 

$ 1-010 - aes GASSK COND. SUC, BASSK OFAILURE , BASSK_SUCCESS, BASSK_MAR_EXC. 

{ 1-011 = Change COND_SUC from o 2. FM 19=SEP-80 

; 2-001 = Convert to SDL. SBL 3-AUG21982 

¢ Define all syatots as if they vere » glodals using the BASS prefix. 

} Oe Call yA LS. ons in MACRO=-32 with 


MODULE SBASPAR; 


{+ 
t Control 2 record for use with reading ENDFILE produced on PDP-11s 
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CONSTANT 
CONT 


+ 


ROL.Z EQUALS 26 PREFIX BAS TAG SK; { ASCII Control Z = ENDFILE record 


Define a number of constants that are used for format characters, carriage 
control, and buffer sizes. The format character constants are pushed by the 
UPI Level and read by the UDF level of 1/0. 


CONSTANT 
COND SUC EQUALS PREFIX BAS TAG $K, conditional success status 
FAILORE EQUALS PREFIX BAS TAG $K, failure status 
SUCCESS EQUALS PREFIX BAS TAG SK, success status 
MAR_EXC EQUALS g PREFIX BAS TAG $K, margin exceeded status 
BUF EXC EQUALS PREFIX BAS TAG SK, buffer exceeded status 
EQUALS 4 PREFIX BAS TAG $K, CRLF found in string to be output 
NULL EQUALS PREFIX BAS TAG $K, dummy argument 
COMMA_FOR EQUALS PREFIX BAS TAG $K, comma format character in 1/0 
SEMI_FORM EQUALS PREFIX BAS TAG $K, semicolon format character in I/0 
_FORM EQUALS 3 PREFIX BAS TAG $K, no format character 
Lf EQUALS 1 PREFIX BAS TAG $ ; Line feed character for carriage control 
CR EQUALS 141 PREFIX BAS TAG $k, carriage return character for carriage control 
LUN_MAX EQUALS 256 PREFIX BAS TAG SK, { used by GET and PUT for foreign buffers 
MAX_FOR.B EQUALS 127 PREFIX BAS TAG $K; { maximum LUN for foreign buffers E 
{ 127 was chosen because it doesn't set the sign 
{ bit and allows room for more expansion 
END_MODULE S$BASPAR; 
{ End of file BASPAR.SDL 
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